home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
utility
/
fwzm.zip
/
FWZINS.FW3
(
.txt
)
< prev
next >
Wrap
FrameworkDocument
|
1990-11-15
|
5KB
|
111 lines
; {F5} To Install
; utility for automatically installing FWZIP Manager
; FWZIP Manager
; by Gary Reger
;VERSION
90-11-13
; (c) copyright claimed
; Load install instructions
@pk("{menu#dc}"),
@pk("{menu#dg}FWZms1.fw3{return}{in}{out}"),
; wait to read
@eraseprompt,
@beep,
@local(Ab),
Ab:=@inputline(" Press {RETURN} to continue with install, or `A' to abort."),
@if(Ab="A",@list(
@eraseprompt,
@prompt(" Auto install aborted. Read FWZdoc.fw3 for instructions."),
@beep(500,10),
@beep(0,200),
@return(0))),
; Begin install
@eraseprompt,
@beep,
@pk("{esc}{esc}{ctrl-out}"),
@echo(#off),
@delete("fwzms1"),
;now test for conflicting alt-key assignment
;...............
@eraseprompt,
@prompt(" Auto installation of FWZip Manager in progress...."),
@beep,
@pk("{esc}{esc}{ctrl-out}"),
@echo(#off),
;check alt-key
@iserr(@isdocument("{Alt-Z}")),
@list(
@performkeys("{menu#dG}FWZmac.FW3{RETURN}"),
@setselection("FWZmac"),
@pk("{esc}{esc}"),
@pk("{menu#lg}FWZmac{return}"),
@pk("{123}Alt-Z}; FWZIP Manager version
1.00"),
@pk("{return}"),
@pk("{f7}{scroll-lock}{home}{in}{return}{SCROLL-LOCK}")),
@list(
@setselection("Library"),
@pk("{in}{menu#lg}"),
@pk("{123}alt-Z{125}{return}"),
@pk(";old alt-Z"),
@pk("{return}"),
@pk("{ctrl-out}{return}{scroll-lock}"),
@pk("{menu#dc}"),
@pk("{menu#dg}FWZmac.fw3{return}"),
@setselection("FWZmac"),
@pk("{esc}{esc}"),
@pk("{menu#lg}FWZmac{return}"),
@pk("{123}Alt-Z}; FWZIP Manager
version 1.00"),
@pk("{return}"),
@pk("{f7}{scroll-lock}{home}{in}{return}{SCROLL-LOCK}"))),
;clean-up desktop,
@pk("{menu#dc}"),
;load prg to set path
@eraseprompt,
@beep(1000,1),
@prompt(" Setting DOS path default that FWZIP Manager will use -- see documentation."),
@pk("{Menu#dg}FWZipman.fw3{return}"),
@PK("{ESC}"),
;set path variables
FWZipMan.GV.fwzUEpath:=@setdrive &@setdirectory,
FWZipMan.GV.fwzUFpath:=@setdrive &@setdirectory,
;set path to find help documents
fwzipman.gv.fwzhelppath:=@setdrive &@setdirectory,
; load path message
@pk("{Menu#dg}FWZpathmsg.fw3{return}"),
@PK("{ESC}"),
; enter path info
@setselection("FwZpathmsg"),
@pk("{in}{ctrl-home}{ctrl-end}{home}{tab}"),
@pk("1. The path for finding PKZIP.exe files was set for " &FWZipMan.GV.fwzUEpath),
@pk("; Re-set if your PKZIP related *.exe files are not on this path."),
@pk("{return}{return}{home}{tab}"),
@pk("2. The default path for finding your *.zip files was set for " &FWZipMan.GV.fwzUFpath),
@pk("; This should be a path where you will regularly manage your zipped files, if not re-set."),
@pk("{return}{return}{home}{tab}"),
@pk("3. The default path for finding your Help files was set for " &FWZipMan.GV.fwzhelppath),
@pk("; This must be a path where fwzdoc.fw3 resides."),
@pk("{return}{return}"),
@pk("{ctrl-home}{out}"),
; save fwzipman.fw3 with new paths
@setselection("fwzipman"),
@pk("{ctrl-out}"),
@pk("{ctrl-return}"),
;load cross-referenced version of basic instructions
@eraseprompt,
@prompt(" Initial path defaults set, now loading basic instruction files....."),
@pk("{Menu#dg}FWZms3.fw3{return}"),
@PK("{ESC}"),
;load basic instructions
@pk("{menu#dg}FWZms2.fw3{return}"),
@pk("{ctrl-in}"),
@echo(#on),
@eraseprompt,
@prompt(" Installed. DOS Path set - BUT MAY BE WRONG. See Instructions on desktop."),
@beep(1760,2),
@beep(1760,2)
NG. See I
fwzins